(defun gvp (f) (with-open-file (s f :direction :output :if-exists :supersede) (maphash #'(lambda (k v) (declare (ignore v)) (format s " A (c::backend-template-names c::*backend*))))